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AR <eommand> = <play> | <stop> | <goto>; 

AR ~»* <play> = (play|gp|start) {PIAY} ; 

AR <stqp> = (stop|tialt|quit) {STOP}; 

KR <goto> = go to line <lineno> {GOTO}; 

AR <Uneno> = 1 {ONE} | 2{TWO} 1 3 {THREE}; 
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abstract clas^ Gnjmmar { 

PhraseGrid GetPhxaseGridO 
Object Value(Phrase phrase) 

abstract ParseNodeO PartialParse(Phrase phrase, irit Start) 
> 



SR C class PhraseGtamniar : Grammar { 
~\ J PJiraseGrammar(Phrase grammarphrase) 

J ParseNodeO PartialParse(Phrase phrase, int start) 

L > 

felass ChoieeGrammar : Grammar { 
J ChoiceGrainmar(param Grammarfl alternatives) 

■ ParseNodeQ Pai1ialParse(Phrase phrase, int start) 

> 



KR I class ConcatenatedGrammar : Grammar { 

ConeatenatedGf ammar(param GrammarQ constituents) 
ParseNodeQ PartialParse{Phrase phrase, int start) 
) J 
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AR~*- GitoHnar command—^ 

ARr^ Grammar play = new ChoiceGrammar( 

new Pln^eCframmar^play"), 
new PhraseGrammar^go"), 
new PhraseGrammar("stait") 
) 

AR~*~ Grammar stop = new ChoiceGrammar( 

new PhraseG£ammat( ,, stoJl ,, ), 
new PhraseGrammat("halt ,, )> 
new PhmseGtariuimr( l, qiiit ranning , 0 
) 

ARr-** Grammar lineno — new ChoieeGrammar( 

new PlaaseG^^nmar( ,^ l ,, ), 
new PJhr^eGramimar( ,, 2 , 7, 
new PhiaseGtammar( f, 3 M ) 
) 

KR~*~ Grammar goto = new C^catejpatedGrammar( 

new PhraseGrammarC'go to line"), 
lineno 
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KR — Grammar multiplication = new ConcatenatedGrammar( "\ 60 

newNumberGrannnar(l,9), \( 
new PluaseGTammar("times"),^ 
new NumberGrammar(i,9) 
) 

SE — void OnSynthesize(SynthesizeEventAigs e) { 
e. Value = e.Values[0] * e.Values[2] 
} 
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